clear
set more off
set matsize 5000

global lecind    "\\intra\partages\au_amic2\SRCV\TABLES_INITIALES\INPUT\INDIVIDUS"
global lecindsas "\\intra\partages\au_amic2\SRCV_AVRIL2021\TABLES_INITIALES_AVRIL2021\INDIVIDUS"
global ecrind    "\\intra\partages\au_amic2\SRCV_AVRIL2021\BASES_FEV2022_V5\INDIVIDUS\autres_var"
global ecrstat   "\\intra\partages\au_amic2\SRCV_AVRIL2021\STAT_fev2022_V5\2004_2008"
global ecrprov   "\\intra\partages\au_amic2\SRCV_AVRIL2021\prov_fev2022_V5"
global ecrtot    "\\intra\partages\au_amic2\SRCV_AVRIL2021\BASES_FEV2022_V5\TOTAL"

/* 1 - EXTRACTION DES VARIABLES SELECTIONNéES */
/*     fichier STATA 1ère livraison 2004-2008 */
foreach an of numlist 8 {
cd "$lecind"
use individus0`an'_diff.dta, clear
keep ind men age adultvrairep idmenc_* idindc_* /// 
perdre contrat classif ///
actjan1 actjan2 actfev1 actfev2 actmar1 actmar2 actavr1 actavr2 ///
actmai1 actmai2 actjun1 actjun2 actjui1 actjui2 ///
actaou1 actsep1 actoct1 actnov1 actdec1 ///
datdeb datfin datdeb* datfin* ///
actder actdera mofact mofacta ///
mrec nbemp nombremp oceup pl015 pl020 rech ///
pl070 pl072 pl087 pl080 pl085 ///
situad situad* ///
pl210a pl210b pl210c pl210d pl210e pl210f pl210g pl210h pl210i pl210j pl210k pl210l
gen annee_SRCV = 200`an'
order men ind annee_SRCV adultvrairep 
rename idmenc_* idmenc
rename idindc_* idindc
cd "$ecrind"
save autres_indiv_act_`an'_bis.dta, replace
display `an'
count 
}

foreach an of numlist 6/7 {
cd "$lecind"
use individus0`an'_diff.dta, clear
keep ind men age adultvrairep idmenc_* idindc_* /// 
contrat classif ///
actjan1 actfev1 actmar1 actavr1 actmai1 actjun1 actjui1 ///
actaou1 actsep1 actoct1 actnov1 actdec1 ///
datdeb datfin datdeb* datfin* ///
actder actdera mofact ///
mrec nbemp nombremp oceup pl015 pl020 rech ///
pl070 pl072 pl087 pl080 pl085 ///
situad situad* ///
pl210a pl210b pl210c pl210d pl210e pl210f pl210g pl210h pl210i pl210j pl210k pl210l
gen annee_SRCV = 200`an'
order men ind annee_SRCV adultvrairep 
rename idmenc_* idmenc
rename idindc_* idindc
cd "$ecrind"
save autres_indiv_act_`an'.dta, replace
display `an'
count 
}

foreach an of numlist 4/5 {
cd "$lecind"
use individus0`an'_diff.dta, clear
keep ind men age adultvrairep idmenc_* idindc_* /// 
contrat classif ///
actjan1 actfev1 actmar1 actavr1 actmai1 actjun1 actjui1 ///
actaou1 actsep1 actoct1 actnov1 actdec1 ///
datdeb datfin datdeb* datfin* ///
actder mofact ///
mrec nbemp nombremp oceup pl015 pl020 rech ///
pl070 pl072 pl087 pl080 pl085 ///
situad situad* ///
pl210a pl210b pl210c pl210d pl210e pl210f pl210g pl210h pl210i pl210j pl210k pl210l
gen annee_SRCV = 200`an'
order men ind annee_SRCV adultvrairep 
rename idmenc_* idmenc
rename idindc_* idindc
cd "$ecrind"
save autres_indiv_act_`an'.dta, replace
display `an'
count 
}


/* 2 - EMPILEMENT DES TABLES */
clear 
use "$ecrind\autres_indiv_act_8_bis.dta", clear
append using 	"$ecrind\autres_indiv_act_4.dta" "$ecrind\autres_indiv_act_5.dta" ///
                 "$ecrind\autres_indiv_act_6.dta" "$ecrind\autres_indiv_act_7.dta" 
sort  men ind annee_SRCV idmenc  
order men ind annee_SRCV idmenc 
save "$ecrind\autres_individus_act_2004_2008.dta", replace

/* 3 - MISE EN FORME DES VARIABLES */
* 3-1 DESTRING
clear
use "$ecrind\autres_individus_act_2004_2008.dta", clear
destring perdre, replace
destring contrat, replace
destring classif, replace
destring actjan1, replace
destring actjan2, replace
destring actfev1, replace
destring actfev2, replace
destring actmar1, replace
destring actmar2, replace
destring actavr1, replace
destring actavr2, replace
destring actmai1, replace
destring actmai2, replace
destring actjun1, replace
destring actjun2, replace
destring actjui1, replace
destring actjui2, replace
destring actaou1, replace
destring actsep1, replace
destring actoct1, replace
destring actnov1, replace
destring actdec1, replace
destring actder, replace
destring actdera, replace
destring mofact, replace
destring mofacta, replace
destring mrec, replace
destring nbemp, replace
destring oceup, replace
destring pl015, replace
destring pl020, replace
destring rech, replace
destring situad, replace
destring situad2, replace
destring situad3, replace
destring situad4, replace
destring situad5, replace
destring situad6, replace
destring situad7, replace
destring situad8, replace
destring situad9, replace
destring situad10, replace
destring situad11, replace
destring situad12, replace
destring situad13, replace
destring situad14, replace
destring situad15, replace

save "$ecrind\autres_individus_act_2004_2008_def.dta", replace

/* 4 - CREATION DE LA VARIABLE YEAR ET ORDRE DES VARIABLES */
clear
use "$ecrind\autres_individus_act_2004_2008_def.dta", clear
gen year = annee_SRCV - 1
sort  men ind annee_SRCV idmenc  
order men ind annee_SRCV year adultvrairep age idmenc idindc perdre contrat classif ///
datdeb datfin situad datdeb2 datfin2 situad2 datdeb3 datfin3 situad3 datdeb4 datfin4 situad4 datdeb5 datfin5 situad5 datdeb6 datfin6 situad6 datdeb7 datfin7 situad7 datdeb8 datfin8 situad8 ///
datdeb9 datfin9 situad9 datdeb10 datfin10 situad10 datdeb11 datfin11 situad11 datdeb12 datfin12 situad12 datdeb13 datfin13 situad13 datdeb14 datfin14 situad14 datdeb15 datfin15 situad15 /// 
actjan1 actfev1 actmar1 actavr1 actmai1 actjun1 actjui1 actaou1 actsep1 actoct1 actnov1 actdec1 actjan2 actfev2 actmar2 actavr2 actmai2 actjun2 actjui2 ///
actder actdera mofact mofacta mrec nbemp nombremp oceup pl015 pl020 rech ///
pl070 pl072 pl080 pl085 pl087  ///
pl210a pl210b pl210c pl210d pl210e pl210f pl210g pl210h pl210i pl210j pl210k pl210l 
save "$ecrind\autres_individus_act_2004_2008_def.dta", replace


/* 5 - CREATION DES VARIABLES PL211A_NEW à PL211L_NEW 
       afin d'obtenir des séries sur toute la période de 2004 à 2008
	   le nombre de modalités est bien à 8 (la modalité 9 étant toujours absent : le service national a été aboli en 2001) 
	   */
clear
use "$ecrind\autres_individus_act_2004_2008_def.dta", clear
gen pl211a_new = pl210a
gen pl211b_new = pl210b
gen pl211c_new = pl210c
gen pl211d_new = pl210d
gen pl211e_new = pl210e
gen pl211f_new = pl210f
gen pl211g_new = pl210g
gen pl211h_new = pl210h
gen pl211i_new = pl210i
gen pl211j_new = pl210j
gen pl211k_new = pl210k
gen pl211l_new = pl210l

label variable pl211a_new	"Activité principale en janvier N-1"
label variable pl211b_new	"Activité principale en février N-1"
label variable pl211c_new	"Activité principale en mars N-1"
label variable pl211d_new	"Activité principale en avril N-1"
label variable pl211e_new	"Activité principale en mai N-1"
label variable pl211f_new	"Activité principale en juin N-1"
label variable pl211g_new	"Activité principale en juillet N-1"
label variable pl211h_new	"Activité principale en août N-1"
label variable pl211i_new	"Activité principale en septembre N-1"
label variable pl211j_new	"Activité principale en octobre N-1"
label variable pl211k_new	"Activité principale en novembre N-1"
label variable pl211l_new	"Activité principale en décembre N-1"

save "$ecrind\autres_individus_act_2004_2008_def.dta", replace
